10000 :
10001 :
10002 REM  ***************************
10003 REM  *** FORMAT SPUR 36 - 41 ***
10004 REM  ***************************
10005 :
10006 :
10007 :
10008 REM *** RESEVIEREN PUFFER 2
10009 DI$="":BY$=""
10110 OPEN15,8,15,"I":CLOSE15:OPEN3,8,3,"#2"
10120 GET#3,A$:IFASC(A$+CHR$(0))<>2THENPRINT"BITTE FLOPPYREST":END
10200 REM
10210 REM *** LESEN MASCHINENPROGRAMME
10220 REM     FUER FLOPPY IN ZWISCHENSP.
10230 :
10240 DIMTF%(256)
10250 OPEN1,8,0,"FP.FORMATER.OBJ"
10260 GET#1,LB$
10270 GET#1,HB$
10280 FORI=0TO256
10290 GET#1,Y$:IFY$=""THENY$=CHR$(0)
10300 Y=ASC(Y$)
10310 TF%(I)=Y
10320 IFST=64THENI=256
10330 NEXTI
10340 CLOSE1
10500 PRINT"[147] DISKETTE EINLEGEN UND <RETURN>"
10510 GETT$:IFT$<>CHR$(13)THEN10510
10612 :
10613 REM *** ID-KENNUNG LESEN
10614 OPEN15,8,15
10620 OPEN2,8,2,"#"
10630 PRINT#15,"U1";2;0;18;0
10640 PRINT#15,"B-P";2;162
10645 FORI=0TO1:GET#2,BY$:DI$=DI$+BY$:NEXT
10670 CLOSE2
10671 :
10672 REM *** LADEN FORMATIERUNGSROUTINE
10673 REM     IN FLOPPYPUFFER
10674 :
10680 MW$="M"+"-"+"W"
10690 FORI=1536TO1681
10700 X=TF%(I-1536)
10710 HB=INT(I/256):LB=I-(HB*256)
10720 PRINT#15,MW$+CHR$(LB)CHR$(HB)CHR$(1)CHR$(X)
10730 NEXTI
10733 :
10734 :
10735 REM *** LADEN SPRUNGADRESSE IN
10736 REM     FLOPPYPUFFER
10737 FORI=36TO41:PRINT"SPUR";I;"FORMATIEREN..."
10740 PRINT#15,MW$+CHR$(0)CHR$(5)CHR$(3)CHR$(76)CHR$(41)CHR$(6)
10743 :
10744 :
10745 REM *** UEBERGEBEN DISK-ID IN
10746 REM     FLOPPYPUFFER
10747 :
10750 I1$=MID$(DI$,1,1):I2$=MID$(DI$,2,1):I1=ASC(I1$):I2=ASC(I2$)
10760 PRINT#15,MW$+CHR$(3)+CHR$(5)+CHR$(1)+CHR$(I1)
10770 PRINT#15,MW$+CHR$(4)+CHR$(5)+CHR$(1)+CHR$(I2)
10773 :
10774 :
10775 REM *** FORMATIEREN VON SPUR 36
10776 REM     BIS SPUR 41
10777 :
10780 U3$="U"+"3"+" 3 0"+STR$(I)+" 00"
10790 PRINT#15,U3$:INPUT#15,F,FT$,T,S:IFFTHENPRINTU3$;F;FT$;T;S
10792 NEXT
11000 CLOSE15:CLOSE3